home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1997 / MacHack 1997.toast / Hacks / Hacks ’97 / Finder Dungeon / source code / MoreFiles 1.4.6 / Pascal Interfaces / MoreDesktopMgr.p < prev    next >
Encoding:
Text File  |  1997-06-28  |  3.2 KB  |  110 lines  |  [TEXT/MPS ]
  1. UNIT MoreDesktopMgr;
  2.  
  3. {    Apple Macintosh Developer Technical Support                                }
  4. {                                                                            }
  5. {    A collection of useful high-level Desktop Manager routines.                }
  6. {    If the Desktop Manager isn't available, use the Desktop file            }
  7. {    for 'read' operations.                                                    }
  8. {                                                                            }
  9. {    We do more because we can...                                            }
  10. {                                                                            }
  11. {    by Jim Luther and Nitin Ganatra,                                        }
  12. {        Apple Developer Technical Support Emeriti                            }
  13. {                                                                            }
  14. {    File:        MoreDesktopMgr.p                                            }
  15. {                                                                            }
  16. {    Copyright © 1992-1996 Apple Computer, Inc.                                }
  17. {    All rights reserved.                                                    }
  18. {                                                                            }
  19. {    You may incorporate this sample code into your applications without        }
  20. {    restriction, though the sample code has been provided "AS IS" and the    }
  21. {    responsibility for its operation is 100% yours.  However, what you are    }
  22. {    not permitted to do is to redistribute the source as "DSC Sample Code"    }
  23. {    after having made changes. If you're going to re-distribute the source,    }
  24. {    we require that you make it clear in the source that the code was        }
  25. {    descended from Apple Sample Code, but that you've made changes.            }
  26.  
  27.  
  28. INTERFACE
  29.  
  30.     USES
  31.         Types, Files;
  32.  
  33. {***************************************************************************}
  34.  
  35.  
  36.     FUNCTION DTOpen (volName: StringPtr;
  37.                                     vRefNum: Integer;
  38.                                     VAR dtRefNum: Integer;
  39.                                     VAR newDTDatabase: Boolean): OSErr;
  40.  
  41.     FUNCTION DTXGetAPPL (volName: StringPtr;
  42.                                     vRefNum: Integer;
  43.                                     creator: OSType;
  44.                                     searchCatalog: Boolean;
  45.                                     VAR applVRefNum: Integer;
  46.                                     VAR applParID: LongInt;
  47.                                     VAR applName: Str255): OSErr;
  48.  
  49.     FUNCTION FSpDTXGetAPPL (volName: StringPtr;
  50.                                     vRefNum: Integer;
  51.                                     creator: OSType;
  52.                                     searchCatalog: Boolean;
  53.                                     VAR spec: FSSpec): OSErr;
  54.  
  55.     FUNCTION DTGetAPPL (volName: StringPtr;
  56.                                     vRefNum: Integer;
  57.                                     creator: OSType;
  58.                                     VAR applVRefNum: Integer;
  59.                                     VAR applParID: LongInt;
  60.                                     VAR applName: Str255): OSErr;
  61.  
  62.     FUNCTION FSpDTGetAPPL (volName: StringPtr;
  63.                                     vRefNum: Integer;
  64.                                     creator: OSType;
  65.                                     VAR spec: FSSpec): OSErr;
  66.  
  67.     FUNCTION DTGetIcon (volName: StringPtr;
  68.                                     vRefNum: Integer;
  69.                                     iconType: Integer;
  70.                                     fileCreator: OSType;
  71.                                     fileType: OSType;
  72.                                     VAR iconHandle: Handle): OSErr;
  73.  
  74.     FUNCTION DTSetComment (vRefNum: Integer;
  75.                                     dirID: LongInt;
  76.                                     name: StringPtr;
  77.                                     comment: Str255): OSErr;
  78.  
  79.     FUNCTION FSpDTSetComment ({CONST}
  80.                                     VAR spec: FSSpec;
  81.                                     comment: Str255): OSErr;
  82.  
  83.     FUNCTION DTGetComment (vRefNum: Integer;
  84.                                     dirID: LongInt;
  85.                                     name: StringPtr;
  86.                                     VAR comment: Str255): OSErr;
  87.  
  88.     FUNCTION FSpDTGetComment ({CONST}
  89.                                     VAR spec: FSSpec;
  90.                                     VAR comment: Str255): OSErr;
  91.  
  92.     FUNCTION DTCopyComment (srcVRefNum: Integer;
  93.                                     srcDirID: LongInt;
  94.                                     srcName: StringPtr;
  95.                                     dstVRefNum: Integer;
  96.                                     dstDirID: LongInt;
  97.                                     dstName: StringPtr): OSErr;
  98.  
  99.     FUNCTION FSpDTCopyComment ({CONST}
  100.                                     VAR srcSpec: FSSpec;
  101.                                     {CONST}
  102.                                     VAR dstSpec: FSSpec): OSErr;
  103.  
  104.  
  105. {***************************************************************************}
  106.  
  107.  
  108. IMPLEMENTATION
  109.  
  110. END.